home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 23
/
AACD 23.iso
/
AACD
/
Utilities
/
AmigaWriter-Filter
/
Install
< prev
next >
Wrap
Text File
|
2000-12-28
|
4KB
|
121 lines
; Installation script for AmigaWriter-Filter
;
; ©2000 by Rüdiger Hanke
(set #FILTERPATH "SoftLogik:Filters")
(set #INSTALLPATH "install_data")
(set #DOCFILTER (cat #FILTERPATH "/AmigaWriter.dfilter"))
(set #TEXTFILTER (cat #FILTERPATH "/AmigaWriter.tfilter"))
(set #INST_DOCFILTER (cat #INSTALLPATH "/AmigaWriter.dfilter"))
(set #INST_TEXTFILTER (cat #INSTALLPATH "/AmigaWriter.tfilter"))
(set #INSTALL_TFILTER 1)
(set #INSTALL_DFILTER 1)
(set @app-name "AmigaWriter-Filter")
(set @default-dest (cat "" #FILTERSPATH))
; First check some stuff
(if (patmatch "68000|68010" (database "cpu"))
(
(abort "Sorry, but you need an 68020+ processor.")
)
)
(if (<> 2 (exists #FILTERPATH (noreq)))
(
(abort "Your PageStream installation is incomplete!\n\nThis is a filter for Soft-Logik's DTP program PageStream.\n"
"PageStream must be installed correctly on your computer.\n\nPlease install PageStream properly, then run the install script again.")
)
)
(if (or (<> 1 (exists #INST_DOCFILTER (noreq)))
(<> 1 (exists #INST_TEXTFILTER (noreq))))
(
(abort "Incomplete installation package!\n\nThe installer could not find some required files.\n"
"Be sure to download the original AmigaWriter-Filter distribution\nfrom Aminet or http://www.muenster.de/~tomjoad/.")
)
)
; Ask what to install if user != novice
(if (<> @user-level 0)
(
(set #RESULT (askoptions (prompt "Please select which filter(s) you'd like to install:")
(choices "Document filter" "Text filter")
(help "Select the filters you would like to install.\n\nDocument filter:\n"
"With the document filter, you can load AmigaWriter documents in PageStream "
"via the \"Open\" menu item as if they were PageStream-native documents. Page sizes, boxes, images, "
"links between boxes etc. will all be imported.\n\n"
"Text filter:\nThe text filters imports the main flowtext of your AmigaWriter "
"document via the \"Insert text\" menu item into the current column.\n\n"
"Both filters can co-exist and unless you absolutely don't need one of them, "
"there is no reason to install only one.")))
(if (not (bitand 1 #RESULT))
(
(set #INSTALL_DFILTER 0)
)
)
(if (not (bitand 2 #RESULT))
(
(set #INSTALL_TFILTER 0)
)
)
)
)
; Install
(if (<> 0 #INSTALL_DFILTER)
(
; Check version number
(set #VER_FILTER (getversion #DOCFILTER))
(set #VER_VER (/ #VER_FILTER 65536))
(set #VER_REV (- #VER_FILTER (* #VER_VER 65536)))
(set #VER_NEWFILTER (getversion #INST_DOCFILTER))
(set #VER_NEWVER (/ #VER_NEWFILTER 65536))
(set #VER_NEWREV (- #VER_NEWFILTER (* #VER_NEWVER 65536)))
(if (or (> #VER_VER #VER_NEWVER) (and (= #VER_VER #VER_NEWVER) (>= #VER_REV #VER_NEWREV)))
(
(message "The document filter installed on your system is a later "
"version than the one to install.\n\nThe document filter will not be installed.")
)
(
; Copy document filter to filter path
(copyfiles (source #INST_DOCFILTER)
(dest #FILTERPATH)
(prompt "Installing document filter..."))
)
)
)
)
(if (<> 0 #INSTALL_TFILTER)
(
; Check version number
(set #VER_FILTER (getversion #TEXTFILTER))
(set #VER_VER (/ #VER_FILTER 65536))
(set #VER_REV (- #VER_FILTER (* #VER_VER 65536)))
(set #VER_NEWFILTER (getversion #INST_TEXTFILTER))
(set #VER_NEWVER (/ #VER_NEWFILTER 65536))
(set #VER_NEWREV (- #VER_NEWFILTER (* #VER_NEWVER 65536)))
(if (or (> #VER_VER #VER_NEWVER) (and (= #VER_VER #VER_NEWVER) (>= #VER_REV #VER_NEWREV)))
(
(message "The text filter installed on your system is a later "
"version than the one to install.\n\nThe text filter will not be installed.")
)
(
; Copy text filter to filter path
(copyfiles (source #INST_TEXTFILTER)
(dest #FILTERPATH)
(prompt "Installing text filter..."))
)
)
)
)